IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/qauddk2.scr

Text File | 1994-09-15 | 770 b | 39 lines

@thread QAUDDK2.LOG
@NewAlias CD CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING QAUDDK2"
cd LOG $PROMPT="THREAD 1"
cd CDROM_OPEN
cd CDROM_QUERYAUDIODISKINFO
cd set $COUNT=$(LOWTRACK)
cd response $PROMPT="QUERYING AUDIO TRACK INFO"
@loop [cd, hightrack]
cd set track=$($COUNT)
cd CDROM_QUERYAUDIOTRACKINFO
cd INCREMENT
@endloop
cd CDROM_CLOSE
@flush cd
*
*
*
@thread QAUDDK2.LOG
@NewAlias CD CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING QAUDDK2"
cd LOG $PROMPT="THREAD 2"
cd CDROM_OPEN
cd CDROM_QUERYAUDIODISKINFO
cd set $COUNT=$(HIGHTRACK)
cd response $PROMPT="QUERYING AUDIO TRACK INFO"
@loop [cd, hightrack]
cd set track=$($COUNT)
cd CDROM_QUERYAUDIOTRACKINFO
cd DECREMENT
@endloop
cd CDROM_CLOSE
@flush cd